UPDATE LUX_FATTURA FA 
SET FA.STORNO = 'S',
fa.protocollo_storno ='NL',
fa.num_storno = null,
FA.DT_EMISSIONE_STORNO = to_date (^Data emissione storni gg/mm/aaaa ;A;Alfabetico^^,'dd/mm/yyyy'),
FA.ANNO_STORNO = substr(^Data emissione storni gg/mm/aaaa ;A;Alfabetico;1^^,7,4) 

WHERE EXISTS 
(SELECT 1 FROM 
LUX_STORNO NC
WHERE trim(FA.ANNO_FAT) = trim(NC.ANNO_FAT)
AND   trim(FA.NUM_FAT) = trim(NC.NUM_FAT)
AND STORNO IS null
and to_date(^Data emissione storni gg/mm/aaaa ;A;Alfabetico;1^^,'dd/mm/yyyy') >= 
   (select nvl(max(dt_emissione_storno),to_date('01012005','ddmmyyyy')) from lux_fattura)
   and   concat(trim(FA.ANNO_FAT),trim(FA.NUM_FAT)) not in 
(select concat(trim(ANNO_FAT),trim(NUM_FAT)) from lux_incasso) 
   
)

